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SHOUBPROCESS CO 1$-$ep-1986 0:05:41 vA 


“ae 9001 : MODULE SHOWSPROCESS_CONT (IDENT="V04-000") = 

3 ¢ 0 § BEGIN 
i? as | | 
: 2 Bone ! ys ana c a pRaR compe os oeN es Hie. 
5 {ft ® 
: 7 9007 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
3 8 sit 1 !® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 

g 16 ssh ; it ALL RIGHTS RESERVED. * 
° 7 * | 
aay 0011 1 !* THIS SOFTWARE IS enn enee UNDER A LICENSE AND MAY BE USED AND COPIED * 
4 \¢ Belg 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 1 01 1 !® INCLUSION OF THE ABOVE sy sepane NOTICE. THIS Sor TWARE OR ANY OTHER Sa 
$ 14 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 15 0015 1 !* OTHER PERSON. NO TITLE TO Aub OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
; 1$ Bote : - TRANSFERRED. * 

Py 4 % 

3 18 0018 1! phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 19 0019 1 !# SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 
4 $9 ooss ; = CORPORATI OW. * 

Ps - a 

3 22 O0s6 1 !e oe Mn ie ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: $i O07 ; ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

Py : & 

; 0025 1 !« * 
3 $8 oos$ : | HUSONSSSNASRRASHSORD ERATE TORO REN OORTE NENA TNO UN SOND T ARNT RR TESS O NOR ONTORE 
: 28 0028 | ite | 
: $3 534 ; : FACILITY: SHOW PROCESS/CONTINUOUS utility | 
: 31 0031 1 ! ABSTRACT: | 
ao ae 0032 1! 
. 3 0033 1! This od ly allows anyone to examine a given process 

; $e 24 : extremely closely to watch process statistics. 
: 36 0036 1 ‘ENVIRONMENT : | 
; 4 sits ! VAX/VMS operating system. User mode with CMEXEC, CMKRNL, WORLD privs. | 
: 40 0040 1! AUTHOR: Tim Halvorsen, Oct 1979 
> (41 0041 1 
$ 42 B0eg 1 ! Modified by: 
; 43 0045 1! 
: «6464 bee 1! v03-020 gh 0905 John R. Lawson, Jr. 19-Jun-1984 15:54 
>; «645 045 1! Eliminate external references to SCR (shareable image) to 

:; 46 0046 1! expidite image initialization; Link to SCR onl when package 

: ri 084 ; is required. 
> 49 0049 1: v03-019 MCNO150 aria del C. Nasr 13-Feb-1984 
3 20 Boao ' Increase field of portion set value display. | 
; 2 it 4 1! v03-018 LMP0140 L. Mark Pilant 25-Aug-1983 13:08 

3 54 0084 : Add support for alphanumeric UiCs. 

: 55 055 1: v03-017 cunt 002 CW Hobbs 24-Feb-1983 

: 26 Bneo ' dify to use extended pid as the input pid. 
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SHOWSPROCESS_CO 16-Sep-1984 00:05: VAX-11 Bliss-32 V4.0-742 P 
104-000 1e28ep- 198 13:08:85 DERKSUMGMASTERSCUL oT: SRCJINFO.B32:1°%° (15. 
H 058 1! v03-016 GAS0099 Gerry Smith 7-Jan-1983 
: 35 335 : Modify slightly to fit with the new SHOW interface. 
: 61 061 1: v03-015 CwHOO1S CW Hobbs 21-0c t-1982 | 
; ¢ 006 Fix use of WSLSC_xxxx symbols. The pre-X1MF systems had different 
; 6 065 1! values for BLISS and MACRO. Post-X1MF symbols had the same 
: rt: 494 ! : value, so any BLISS uses had to be modified. 
o . i 
3 68 098 1! V03-014 TMHO014 Tim Halvorsen 14-Feb-1982 
; «6 067 1! Remove code to display whether PC,PSL,SP is current 
; & 0068 1! or stored = it slows down the display too much and 
: i 88 i } : isn’t worth it. 
; a 0071 1 | vO3-013 MMDO01 Meg Dumont 19-Jan-1982 | 
; 4 it : : Rake info callable from SHOW PROCESS with the /CONTINUOUS 
Py ° u r. 
so 0074 1! v02-012 BL30098 Benn Schreiber 4-Nov-1981 
: Le one : } General addressing mode for scr$ routines 
> oe 0077 1: v02-011 MHB0076 Mark Bramhall 15-Jul-1981 
. 0078 1! Fix process name display to substitute ‘'?"' for ‘“funny'' 
: ie 4 st : } characters. Allow process selection based on PID. 
; 81 0081 1 v02-010 MHB0075 Mark Bramhall 24-Jun-1981 
2.) ae 0082 1! Exit handler now goes to screen's last line and only 
; a? Boe: : } erases that. 
>: 85 0085 1: vO09 —- TMHO009 Tim Halvorsen 15-Jun-1981 
5; 00. 1! Do not declare exit handler to erase screen until all 
: 44 it $4 ; } preliminary error checking is done. 
o . ! 
; 6«89 0089 1! v008 TMHOO08 Tim Halvorsen « 11-Jun-1981 
; WP 0090 1! Replace GETMEM module with GETJPI call. Fix overlapping 
.. 0091 1! display of local event flags. Erase screen when exiting 
: 4 44 : : the program. e- 
; 94 0094 1! V02-007 MHB0074 Mark Bramhall —9-Jun-1981 | 
we 0095 1! Modified vmap Slephay to handle 132 column mode with 
; «396 0096 1! 128 pages er row. Changed from unsolicited input ast's 
TM, a 0097 1! to fullduplex operation with simply a single character, | 
: oe sia: ’ H echo off read posted. 
: 100 0100 1 | vO2-006 wMC0001 Wayne Cardoza 12-May-1981 | 
; 19 319) } } Add display of local event flags. 
: 108 6108 1 v02-005 TMHO001 Tim Halvorsen 19-Dec-1980 
3 104 0104 1! Add ability to see system working set by typing **' 
; 105 0105 1! as the process name. In vmap display, show ‘G" fo 
: 106 0106 1! global section, ‘L* for locked page. Fix optimization 
3s 107 0107 1! which inhibits setting the cursor if its already set 
3; 108 0108 1! to the right place to speed things up. Add current time 
; 109 0109 1! to main display. Fix mode changing so that partial output 
: Be 179 ’ } does not appear on the screen. 
: 112 11g 1! v02-004 GRROOO1 Greg Robert 18-Dec-1980 
, 3 13 7 ¢ Relaxed screen length restrictions. Removed ‘nohardcopy' 
3. (1146 0114 1! restriction. Removed Lib$Sput_output sycronization 


1f3ep-19R 00:05:41 vaned eLies=s2 v4i0-762 | Page oF 


= lL. Added single Ay ts B getien. Increased 

ait time when not anged SHOW. VPN to 
be more ALT) al Add BOLD attribute to P 
display in VMAP 


v02-003 MHB0069 Mark Bramhall 2-0c t-1980 
Use LIBSSCREEN_INFO to check and size screen before starting. 
Add a <CR><LF> to the process name prompt. 
Exit on CTRL/Z as well as ‘'E’’. 


V02-002 MHB0062 Mark Bramhall \eagep~1980 
Exit ferer’y on user typed Control/Z. 
~ initial process =r without upper-cased name. 
Unsolicited "E’ (or ‘e') causes a clean exit. 
*maxvirt’ is defined as fi. * 64. | 
Add PC, State, Image name to last Line of VMAP display. 


v001 TMHO001 Tim Halvorsen 27-Jul-1980 
Slow down display if process is quiesient. 
Force immediate read of image filespec on entry. 
Fix image filespec read to test if successfully 
completed. 
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SRASLES 


1 
: Include files 
LIBRARY ‘SYSSLIBRARY:LI8.L32'; 


1 
: Table of contents 
§ 
F 


<a it_handl NOVALUE 
ex andler: ‘ ’ 
fao_buffer, ‘ 
translate_value, : 
kernel_get_info, : 
wake_ast: NOVALUE, : 
proc_cont_display: NOVALUE; ! 

' 

: Mechanism to Link to SCR 


external routine 


WITCHES ADDRESSING_MODE (EXTERNAL=GENERAL); ! ‘ 
RD ROUTINE. ~ L=GENERAL Set longword addressing 


Image exit handler 

Format an FAO string 

Translate coded value to string 
Get information from PCB/PHD 
Unsolicited character AST routine 
Main routine 


LIBSFIND_IMAGE_SYMBOL: addressing_mode(general); 


CRSPUT_BOFFER, 

CRSPUT_ SCREEN, 
SSCRSSET_BUFFER, 
SSCRSSET_CURSOR: Long; 

macro 

LIBSSCREEN_INFO = ( .$LIBSSCREEN_! 
SCRSERASE_CINE = ( .S$SCRSERASE_LIN 
SCRSERASE PAGE = ( .$SCRSERASE-PA 
SCRSPUT_BOFFER = ( .$SCRSPUT_BOFF 
SCRSPUT-SCREEN = ( .$SCRSPUT-SCR 
SCRSSET_BUFFER = ( .$SCRSSET—BUF 
SCRSSET_CURSOR = ( .$SCRSSET—CUR 


'EXTERNAL ROUTINE 


! = LibSscreen_info : ADDRESSIN 

! ser$erase_Tine : ADDRESSING_| 
!  scr$erase_page : ADDRESSING_ 
! scr$put_buffer : ADDRESSING_ 
! ser$put_screen : ADDRESSING_ 
! ser$set_buffer : ADDRESSING_ 
! scr$set_cursor : ADDRESSING_ 


MACRO 


i, 
ERAL), ! Get screen information 
RAL), ! Erase entire Line 
RAL), ! Erase entire screen 
RAL), ! Flush screen buffer 
RAL), ! Write output string / 
RAL), ! Enable/disable screen buffering 
RAL); ! Set cursor position 


Bho 93:08:35 «— baScsumeMastens RCJINFO.B32;1 > (2). 


SHOWSPROCESS_CO 


18-Sep-1986 00:05: VAX-11 Bliss-32 v4.0-742 2 | 
04-000 eagee 1 8be P3i88Ss eth tea HOTT Secaiweo.032:4°% «2s 


1 ™ estringt) = 
1 i] UPLIT BYTE (ZCHARCOUNT (ZSTRING(ZREMAINING)), 
; ZSTRING(ZREMAINING) )%, 
™ table entry(prefix)(name) = 
LNAME (prefix,name) -cstring(name)%, 
M nametable(prefix)() = 
UPLIT(table_entry(prefix, ZREMAINING) ,-1,-1)%, 
* perform(command) = 
i.) IF NOT (status = command) THEN BEGIN 
4 SIGNAL(.status); 
i RETURN true; 
ENDZ, 


at(line,column) = 
scr$set_cursor(Line,column)%, 


fao(string) = 
fao_buf fer (ZASCID 
ZIF ZLENGTH GTR 1 


write(string) = 
scr$put_screen(fao 
ZIF ZLENGTH GTR 1 


LITERAL 
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MIMINININININININD 2 


SS 


string 
ZTHEN ,ZREMAINING %F1)%, 


MINIM 


MRI 
ZSSBVEAEUNLSSSVRARAN SS SONS ARUVSOSBIR ARAM O SOLE 


(string 
ZTHEN ,ZREMAINING 2F1))2; 


maxvirt = 23*128, ! Maximum virtual pages in vmap 
true = 1, ! Boolean value true 
false = 0; ! Boolean value false 
§ MACRO 
all = 0,0,8,0%, ! ALL bits in a byte 
pc_in_page = 0,7,1,0%; ! Use unused bit to indicate ‘PC page’’ 


Iw 
Wwn— 


Define a macro to print the proper character in the vmap display 
given the virtual page number (VPN) 


OOOooooocccosoo 


MOITOPOPOPONG 
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5 
MACRO 

: : show_vpn(page_number) = 

ial LOCAL bits: BLOCK (BYTE,BYTE); ! Bits from working set entry 

Mm 0240 bits = .vmap page_number,alli; ! Get working set bits 
$5 M 0241 SELECTONEU true 
4 4 g OF 
6K Mm 024 per 
45 M 0244 ebits Cpc_in_page)]: 
“8 . $2 scr$put_screen(ZASCID ‘a',0,0,1); 
48 ial “3 C.bits Cwsl$v_valid) AND (.bits Cwsl$v_wslock] OR .bits Cwsl$v_pfnlock))): 
49 M 0248 scr$put_screen(ZASCID ‘L'); 
oS . 
52 m 0251 i The WSLSC symbols are defined as shifted one bit left so that 
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things are simpler in MACRO. We have to shift them back. 
C.bits CwslSv valid] AND (.bits Cwsl$v_pagtyp] EQL_(wsl$c_gblwrt*-1) 
OR .bits Cwsl$v_pagtyp) EQL (ws tera tobats=1)3: & 
scr$put_screen(ZASCID 'G'); 


C.bits Cwsl$v_valid]): 
scr$put_screen(ZASCID ‘*'); 


COTHERWISE): 


TES; 
END; 


scr$put_screen(ZASCID ' '); 


Define macro to set the cursor to the position corresponding 
to a given virtual address 


RO 
at_vpn(vpn) = at((vpn/.vpn_per_col)+1,(vpn MOD .vpn_per_col)+.vpn_ist_col)2; 


EXTERNAL 
proc_a_desc: BLOCK (8,BYTE] ! Process name descriptor 
proc_z_name: VECTORE15 BYTES, ! Buffer for process name 
proc_\_pid; ! Process identification 


OWN = INFO OWN; 
ECT GLOBAL = IAF 

PSECT PLIT = INFO_ : 
PSECT CODE = INFO_ ; 


The following OWN storage is locked into real memory to 
rove performance, since references are made to almost 
all pieces during every loop. 


lock_start, ! Start of locked down OWN storage 
spacing: INITIAL(2), ! Default spacing equal 2 
keep_goin : BT IAL rgcue) « ! Time to exit flag 
exit_block: VECTOR (5) ! Exit control block 
INITIAL(O, exit handler,1 exit block (4),0), 

mode_change: INITIAC(true), ! Mar qis lay mode change 
new_display_mode, ! New display mode gney if mode_change true) 
dev_flags, ' Established by SCRSGET_INFO 
max_row, ! Maximum legal row for cursor 
tt_chan: WORD ; Channel to IT a 
tt_buffer: VEC TORE? gvie? ! Buffer for TT “‘unsol"’ chars 
prev_prcnam: VECTOR 15 eyTé), ! Buffer for previous name 
prev_desc: BLOCK(8 BYTE), : Descriptor tor above buffer 
prev_image: VECTORE nam ¢_maxrss,BYTEI, ! Previous image name 

CTOR(2), ' Descriptor for above buffer 


prev_state, ! Previous process values... 
prev_pri, 


H 
e-gee 1 8Bs P88 iSt Pid ehleteaecteior, “secaineo.e32: 


} 
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SHOWSPROCESS_CO 15-50 $ep-1984 VAX-11 $-32 V4.0-742 Pa 7) 
v04=000 3ep-1986 19:08:33 DISKSVMSMASTERSECLIUTL SRCIINFO.B32;1°%" (25 
7 31 1 rev_prib, 

3 i? 19 1 prev-orp. 
; \¢ 111 prev_mem, 
a \§ 1 prev pc, 

; 314 13 1 prev_sp | 
3 319 14 «1 prev_ps(, 
3 1$ 17” 7% prev_ppgcnt, 
3 (BT 1$ 1 prev_gpgcnt, 
3 Hs 17 1 prev_cputime, 

3 353i 18 «#1 prev_dirio, | 
3 0 19 ‘1- prev_bufio 
; 1 1 prev_ agetlts, 
3 ¢ 1 4 prev_locevfl0, 
3 § 1 prev_locevfli, 
3 4 1 prev_vause, 

: ; 4 1 previvmap:" REF BLOCKVECTOR Cmaxvirt,BYTE.BYTEI, | 
; 1! 

; 3 ; ,? The following OWN storage must be locked into real memory to | 
3 9 9 : ’ + page faults by the kernel mode code running at a 

BRT | 
; 0 1 display_mode, ! Display mode (0=normal,1=vmap) 

> 334 03 ¢ 1 orp >. “e i éroup ot U , 

3 335 83 1 mem, i Member of UIC 

3 3 0335 1 state, i Process state 

; 7 0336 1 pri, i Process prersey 

3 3 83 7 1 prib, i Process base priority 

3 9 te 1 pc, i PC register 

3 0 0339 1 Sp. i Current SP 

3 1 0340 1 ppgcent, i Process pages in WS 

3 ¢ tae 1 gpgcnt, i Global paces i in WS 
; § 1 cputime, i peeee C 
: 4 Ose 1 dirio, i Total direct 1/0 requests 
3 5 4 1 fio : i Total ousweree 1/0 requests | 
3 6 Bee2 1 pagefl(ts, i Total page faults 
: 7 0 ry 1 vause, i Virtue pages in use 

3 8 Ose 1 sl, i Current 

3 9 0348 1 Tocévet9. i Local event flag cluster 0 

; 350 349 1 locev i Local event flag cluster 1 
s 391 $29 1 wnap: IBLOCKVECTOR Cmaxvirt BYTE, BYTE), of virtual address space 
2: 352 oF ~end 1"E nd 0 locked down OWN storage 


SHOWSPROCESS_CO 
-000 - 
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UTL.SRCJINFO. 832: 


ROUTINE exit_handler (status_address): 


This routine is called during image rundown to cleanup. 
Its sole function is to erase the screen. 


status_address = Address of final status longword 


BEGIN 


scr$put_buffer(); 
scr$erase_page(.max_row,1); 


! Dump contents of current buffer 
i Go to Last Line and erase i 


-TITLE SHOWSPROCESS_CONT 
IDENT \V04-000\ 


INF O_OWN,NOEXE ,2 
00000 LOCK_START: 
.BLKB 
0004 SPACING: LONG 
~~ .LON 
00000000 0000C SRST PLOCE " 
ADDRESS EXIT_HANDLER 
ADDRESS EXIT_BLOCK+16 
$025 MODE _CHANGE : 
. LONG 
00024 NEW_DISPLAY MODE: 
00028 DEV_ FLAGS: 
LKB 
MAX ROW: a es 


o -—- NS 


— 


$0088 be 


oS UN NNER FH © 


$0068 PREV_DESC: 
-BLK 


SHOWSPROCESS_CO 
v04-000 = 


ieeect9ge 98:05:4 


00050 PREV_IMAGE: 


$0190 PREV incite 
00158 PREV states” 
0015C PREV_PRI: 
00160 PREV_ Pria:- 
00164 PREV_GRP: 
00168 PREV_MEM: 
greg sey 
0174 P 

00178 PREV. PPGENT: 
0017C PREV_GPGCNT: 
00180 PREV_CPUTIME: 
00184 PREV_DIRIO: 
00188 PREV_BuUF iO: 


0018C PREV_PAGEFLTS: 
00190 PREV_LOCEVFLO: 
00194 PREV_LOCEVFL1: 


00198 PREV_VAUSE: 
0019C PREV_VMAP: 
001A0 DISPLAY -FODE: 
O1A4 GRP: “BLKB 
STATE: | “BLKE 
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SHOWSPROCESS_CO 
v04-000 + 


0010 LOCEVFLO: 
001E4 LOCEVFL1: 
Oot VAP: oa 3944 

Mr eKR 4 

-PSECT S$OWNS,NOEXE,2 
00000 SLIBSSCREEN_INFO: 
00004 SSCRSERASECL INE: 
00008 SScRSERASE PAGE 
0000C SSCRSPUT_BUFFER: 
00010 $scrSPuT_ 


LKB 4 


BLKB 
SCREEN: 
BLKB 
00014 SSCRSSET oe 
00018 SSCRSSET gee 


3 a a a a a 


-EXTRN 
-EXTRN 
~EXTRN PROC -{-p 

»PSECT INFO_CODE ,NOWRT,2 


0000 00000 EXIT_HANDLER: 
WORD 


= a4 FIND IMAGE SYMBOL 
ADEs SC, PROC_Z_NAME 


. Save nothin 
0000" oF 00 FB 0000 CALLS 0, we a 
01 DD 0000 PUSHL 
0000" CF Dd 00009 PUSHL 
0000" oF 62 FB 0000D CALLS. #2 -"aSSCRSERASE _PAGE 
04 00012 RET 


3; Routine Size: 19 bytes, Routine Base: INFO_CODE + 0000 


ifSep-1964 0005-4) yaned4 oLis4=82 ¥4:0-742, eg a Pome (10 


en ooo 


3; Routine Size: 37 bytes, Routine Base: INFO_CODE + 0013 


4 13 
SHOWSPROCESS_CO 16-Sep-1984 00:05: VAX-11 Bliss<-32 V4.0-742 Pa 11 
¥04-000 egeen18he PBR sy Te thlet eR eter eecsiweo.0s2:4°™ ch} 
3; 377 re ROUTINE fao_buffer(ctrstr,args) = 
3 a8 f BEGIN 
: et 7 joce 
: ¢ ig i This routine passes an ascii string through the FAO 
$ Hh » : system service with any number of specified parameters. 
3 85 : — 
; oF ¢ _ d VECTOR(2) ! Result d i 
3 esc : ’ ! Res tor 
; 89 Sats VECTORESO- BYTE; i Output buffer 
: 391 8 2 MAP 
3 4 9 ctrstr : REF VECTOR(2), 
3 Br rs! args : VECTOR(4); 
: 395 39 desc{0) = 80; ! lt i 
; 36 0398 Gosch 93 . wt Set up result descriptor 
; 0394 $faol(ctrstr=.ctrstr,outlen=desc ,outbuf=desc,prmlst=args); 
; 398 0395 ETURN desc; 
3; 399 0396 3 
-PSECT INFO_OWN,NOEXE,2 
OOD6C DESC: -BLKB 8 
00074 BUF: -BLKB 80 
eEXTRN SYSSFAOL 
-PSECT INFO_CODE,NOWRT,2 
0004 00000 FAO_BUFFER: 
eWORD Save R2 3; 0374 
38 009 * CF 9€ 0000 MOVAB pest. R2 F 
6 0 8F 9A 0000 MOVZBL #80, poze : 039 
04 A2 08 <A2 9E 000 MOVAB BUF, DESC+4 3: 039 
08 ac 9F 0001 PUSHAB ARGS 3 0394 
25 DD 0001 PUSHL R : 
DD 0001 PUSHL R : 
04 AC OD 1 PUSHL CTRSTR : 
000000006 98 04 FB 1A CALLS #4, SYSS$FAOL 3 
0 62 9E 00¢1 MOVAB DESC, RO ; 0395 
04 00024 RET 3; 0396 


—_—— FH 
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SHOWSPROCESS_CO 16-Sep-1984 00:05: VAX-11 Bliss-32 V4.0-742 Pa 2 
v04-000 12-808-}382 90:03:43 DISKSVMSMASTER: CCLIUTL.SRCJINFO.B832;1 ae (3 
H ret 7 ROUTINE translate_value(value,table) = 
; 4 g BEGIN 
3; 4 
; 405 ! 
; 4 4 ¢ : This routine returns the address of a counted string 
3 rt : describing a given value. 
; 408 405 2! Inputs 
; 410 4 ! 
; 411 4 ! value = The value to be translated 
3 tig : table = Address of the table which describes the values: 
3: 614 10 2! cstring-addr, value js 
Py $i? ot) : ° @ uy 
: ri 413 i ao * “24 { 
3; 418 414 ! 
3 re gel : Outputs 
: 421 bei9 i The value of the routine is the address of the counted 
3; 4 ¢ 0418 ! ascii sir ingg. If the search fails, a pointer to the 
3; 4 ed ! string ‘‘<NONE>"’ is returned. 
3: 426 0 ! ’ 
3; 425 0421 leon 
3; 4 $ 04 ; 
; 4 04 
3 : 3 8 3 table: REF VECTORC,LONG); ' Name table 
; £8 04 § 2 INCR entry FROM 0 BY 1 DO 
3 $3 3 i SELECT .tableL.entry*2) OF SET 
; £33 429 RETURN cstring('<NONE>'); 
3 434 430 C.value): 
3; 435 431 RETURN .tableCL.entry*2+1); 
3 rt | $3 TES 
3; 43 043 END; 
-PSECT INFO_PLIT,NOWRT,NOEXE ,2 
96 0000 P.AAA: .BYTE 6 3 
3€ 45 4E 4F 4E 3C 00001 eASCII \<NONE>\ 3 
rs 
-PSECT INFO_CODE,NOWRT,2 
000C 00000 TRANSLATE_VALUE: 
QORD Save R2,R3 : 0397 
3° bs oe RL ENTRY : 0430 
51 9 1 1$: ASHL #i, ENTRY, R1 3: 0427 
08 Bacal D 08 MOVL atAaretrii. R3 : 
FFFFFFFF F 3 9 CMPL R3, a- 3; 0428 
9 12 14 BNEQ 2s 3 
52 0000° CF 9 16 MOV P.AAA, R2 3; 0429 
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C0 


SHOWSPROCESS 


v04-000 


» ENTRY, 1$ 


ECR1), R1 
RO 


» RO 


i 
147483647 


Re VALUE 


atA 
4(R 
i 


MOVL 

RET 
AOBLEQ # 
MNEGL 


N ” 
Owuernwn fwut << 
ONIN 


SOOoOoooOOoOoOoO 
SOOOOOOOOCOoO 


ove NWOTMws 
Qa200Q-—A00u. vo 
N Mate 
mw wmovwde 
vw 
@ 


ow 
oo 


ef 
1 
INFO_CODE + 0038 


50 
AC 
28 7FFFFFFF 


-O 
ne 


04 


CD 


Routine Base: 


. 
w 
® 
a 
~ 
2 
o 
w 


; Routine Size: 


pcoSy se }; 


b 
rib = 31=.pebbped 5 orib); | 
ocevfl0 = .peb pebst -efest: | 
locevfll = .pcblpcb$l-efcu 


14 
SHOWSPROCESS_CO * & ee 74 VAX-11 Bliss-32 V4.0-742 Page 14) 
v04-000 1e-Sep- 198 99: 83 33 Disk KSVMSMASTER: CCLIUTL.SRCJINFO.B832;1 . (6) | 
5 439 434 1 FORWARD | 
; rr : 5 : infolipl; ! Longword containing IPL 
: 44 239 | ROUTINE kernel_get_info = | 
3; 44 438 1 
3; 444 439 1 !<<- 
; 445 0440 1! 
3; 446 0441 1! This routine runs in kernel mode to obtain 
; 447 pees 1! the necessary information about a process 
; 448 0445 1! from the process control block and process 
3; 449 0444 1! header in system space. 
; 450 Rese 1 i 
3; 451 446 1! On input: 
; +28 0447 1! proc_l_pid = Process ID of desired process | 
; 45 0448 1} 
3 454 0449 1 !--- | 
> 455 0450 1 
3; 456 0451 BEGIN 
3: 457 Bo 26 | 
; 458 045 EXTERNAL 
; rot Beee § sch$gl_nullpcb : ADDRESSING_MODE(GENERAL); ! Label on null proc pcb (not pointer to null pcb) | 
; 461 0456 ¢ LINKAGE | 
$ rr] eg t4 cvt_lnk = JSB (REGISTER=0) : PRESERVE (1,2,3,4.5) NOTUSED (6,7,8,9,10,11); 
; | 
; 464 0459 EXTERNAL ROUTINE | 
3 red peed exeSepid_to_pcb : cvt_lnk ADDRESSING_MODE (GENERAL); 
: 467 0462 MACRO | 
; re pees set_ipl(ipl) = (BUILTIN MTPR; MTPR(ZREFCipl) ,PRS_IPL))2; | 
; 470 0465 2 REGISTER 
3: 471 0466 pcb: REF BLOCK fF .BvTE). ! Address of PCB 
3; 472 0467 2 chee REF BLOCK L,BYTEJ, ! Address of PHD | 
3 ot? rr84 § vpn; ! VPN for filling in vmap 
; $23 gee8 § pcb = exeSepid_to_pcb (.proc_l_pid); ! Convert the EPID to a pcb address | 
; or oes 2 e pcb EQL 0 ! If we didn't get a pcb address 
: rth beoe RETURN ss$_nonexpr; ! Exit with failure; | 
: 481 047 IF .pcb ~ sch$gl_nullpcb ! If process went away 
3 rt pare a 4 pcb$l_epid] NEQ .proc_l_pid ! or if the pcb has been reused, 
; ry: at 4 NRETURN ss$_nonexpr; ' then exit with failure | 
: 486 0481 2 CHSMOVE(15, ri et fier inane) -8,0/0).proc pz-nane} | 
3 487 0482 proc_a sitet w_length) = .pcb($BYTEOFFSET(pcb$t_Tname) ,0.8,0; 
; 488 proc_a_des ds Sapo pees * proc_2_name; 
3; 489 grp = cbfpeb 
; 490 mem = + 
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; 4 491 cnt = .pcb{pcb$w_ppgcnt); 

: 43 se a ecat = Bebb pc bgu -pogent 3 

4 £28 t3e {fp dteplay_pode NEQ 0 

4 i a CHSFILL(O,maxvirt,vmap); ! Initialize vmap to zero if needed 

: 50 498 2! 

3 2b 44 : Set the IPL to SYNCH to avoid outswaps while eaten, the PHD. 

: $05 500 } The IPL is set from a longword at the end of the routine so that 

: 208 p28) : the remainder of the routine is paged into memory as the IPL is set. 
; 208 o808 § | 

; 202 Bebe SET_IPL(.info_ipl); ! Set IPL to avoid outswaps 

3 211 0506 phd = .pcb Cpcb$l_phd; ! Get PHD address 

3 
; 218 0508 IF NOT “pebt orbs ross : af suegped out, 

: 218 F384 ; OR .phd EQL 0 ! Or if PHD address zero, 
: 516 0511 BEGIN 
; 517 Bag SET_IPL(O); ! Restore IPL 
3 218 331? 3 ss$_normal; 
; st ar ti hd(phd$l tim] | 
; cputime =. cputim); | 
: 582 0317 3 dirio = -phatphasi_dtoent); 

3 2s 0518 bufio = .phd[phd$l_biocntd; 

: 526 0519 pageflts = if dCphd$_pagef its]; 
; $25 0520 vause = .phd pre lL frepOva)+(%x'80000000'-.phd Cphd$l_frepiva)); 
: 526 0521 pc = .phdlphd$l_pcJ; 

; 5e7 o2s8 psl = “phd Cphd$l_pslj; 

: 3 82 ? sp = .phd[phd$l_uspJ; 
; $5 0853 5 
; 531 0526 : Copy the WSLE bits into vmap for each page in the working set. 
: 236 ea34 : Only do this if the mode is VMAP to minimize time at SYNCH. | 
: 534 0339 

: 23? bees if _,@isploy_mode NEQ 0 

> 537 0532 BEGIN | 
: 538 bes REGISTER ! Speed the loop up a Little 

; 339 8 maxtest; 

5 a9 b2 5 maxtest = maxvirt; 

: 266 Bees pce wsle FROM .phd+.phd[phd$w_wslist]*4 TO .phd+.phd(phd$w_wslast]*4 BY 4 
: 544 0539 4 BEGIN 

3 545 Beet 4 MAP wsle: REF BLOCKC,BYTE); ! Reference WSLE structure 

; 546 541 4 vpn = ..wsle*-9; ' Get VPN of page in WS 

: rH4 246 : J ven LSSU .maxtest ! If page within range of vmap, 

; 568 a¢¢ 4 am vmap C.vpn,all) = .wsle Call); ! then copy attributes to vmap 

> 551 54 ? 

3 $31 329 ; SET_IPL(0); ! Restore IPL back to zero 
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vpn = .pc*=-9; 


IF_ .vpn LSSU .maxtest 
THEN 


vmap C.vpn,pc_in_page] = 
END; ! End of gathering VMAP statistics 


SET_IPL(O); 
RETORN: ss$_normal; 
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59 000000006 
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56 
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-Sep-1984 


-Sep-1984 


O7FC 00000 KERNEL_GET_INFO: 
- WORD 


wo = 
owe 


3$: 


2 99:08:35 DiSkSVMSMASTERSCCLiUT 
! Get VPN of current PC 


! If current PC is in vmap 
! Set bit indicating PC in this page 


4 
L 


' Restore IPL back to zero 


SCHSGL_NULLPCB, EXESEPID_TO_PCB 


Save R2,R3,R4 
PROC_L_PID, R10 © 
PROC-Z “name,” RI 
Prot. a 
EXESEPTD 16. PCB 
SCHSGL NULLPCB, RO 
PCB, RO 
Jo0cPce), PROC_L_PID 
#2280, RO 
113(PCB) PROC 2_NAME 
» PROC A 


a. PROC. A_DESC+4 


=-0 
ao 


v 


oww Seeese"s 
— 


ou 


ie. 
a 
>. 


NSNSODWND—FOoow— 


DVN VD SV HE 
<_ ~~w~waweuww~w~OW 


gisrua z 


R?7 

#0, (SP), #0, #2944, VMAP 
NFO_IPL, #18 

Ioecece) rr 


+ plea, CPUTIME 


R5,R6,R7,R8B,RI,R10 


Pee Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Ge Se Se Ge Ge Se Be Se Se Se Se Be Se Se Be Be Se Be 


16) 
(6) | 


F 14 
16-Sep-1984 00:05: VAX-11 Bliss-32 V4.0-7 Page 17 
exept 88s 888s Natale teacc tr ior Sacouneo.e32:0°™" «as 
10 OA 54 AO 7 AB mova §4 (PHD), DIRIO : 0517. 
51 sh 35 Ad PS 0008 SUBLS  GBCPHD). GOGPHD) RI ¢ 8220, 
é a8 80000000 fy § MOVAR  =21474BS608(R 1). VAUSE ; | 
A CO 60 D C MOVL 192(PHD), PC + 0521. 
ey cs CO D ¢ MOVL  196(PHD); PSL : 05 4 
c 8 4 D 0 C MOVL  132(PHD). SP : 0523. 
4 D BLBC ~=s.s«aR?,._7$ : 0539. 
51 0880 F 3¢ 990 MOVZWL #2944, MAXTEST : 0935 
5 08 AO 3C QOODA MOVZUL BC(PHDS, R2 + 0537) 
6042 DE OO0DE MOVAL (PHD)CR2], R3 3 | 
12 AO 3C OO00E MOVZWL 18(PHD) R : | 
6042 DE O00E6 MOVAL (PHD)CR2], R2 : 
12 11 OOOEA BRB 6$ 3 0542) 
50 63 F7 gf 78 OOOEC 4$: ASHL #9, (WSLE), VPN + 0541 
51 0 D1 000F1 CMPL VPN, -MAXTEST + 0542 
05 1 O00F4 BGEGQU ; 
38 A840 63 90 000F6 MOVB (WSLE), VMAPLVPN] > 0544 
53 04 CO OOOFB 5$: ADDL2 #4, WSL : 0537 
52 53 D1 OOOFE 6$: CMPL  WSLE, R : 
E9 1B 00101 BLEGQU 4$ : 
12 00 DA 00105 TPR #0, #18 > 0547 
50 08 As F7 ef 8 00106 ASHL #-9, PC, VPN : 0548 
51 0 D1 0010C CMPL -* VPN. MAXTEST : 0550 
06 1€ 0010 BGEG F 
38 A840 80 8F 88 00111 BISB2 #128, VMAPLVPN] + 0552 
12 DA 00117 7$: MTPR #0, #18 : 0596 
50 1 DO OO11A MOVL #1. RO : 055 
04 0011D RET : 0559 


; Routine Size: 286 bytes, Routine Base: INFO_CODE + 0073 


; 565 0560 1 
> 566 0561 1! 
; 567 8206 1 ! The following PSECT manipulation is used to place the data segment INFO_IPL 

; 568 0565 1! in the executable PSECT. This will force the routine to be in-faulted as | 
3 29? 3268 ' : the IPL is changed. | 
; 2) 9266 : PSECT OWN = INFO_CODE; ! Make the following OWN follow routine | 
; 378 B28 : OWN info_ipl: INITIALC(ipl$_synch); ! Used by SET_IPL in previous routine 
; 575 0570 1 PSECT OWN = INFO_OWN; ! Restore OWN psect attributes 
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ROUTINE wake_ast (ast_type) : NOVALUE = 


i This routine is invoked when the user types any character or 


Control/C. 


BEGIN 


OWN 
josb : VECTOR (4, WORD]; 


IF .ast_type LSS 0 THEN 
tt. butter (0) = 26; 


if ztt.buffer CO} EQ. ‘v' 


BEGIN 
new display_mode = 1; 
mode_change = true; 


ELSE IF .tt_buffer (0) EQ. * ‘ 
THEN 
BEGIN 
new_display_mode = C; 
mode_change = true; 


E 

ELSE IF .tt_buffer (0) EQ. ‘E' 
OR .tt_buffer (0) EQL 26 
k ~y i fal 
eep_going = false; 
END: = . 


IF .keep_going THE 
I 


fake a CTRL/2Z 
If vmap requested, 


set new vmap display mode 
mark mode has changed 


If normal requested, 


set new normal display mode 
mark mode has changed 


If exit requested 
one way or another (CTRL/Z), 


say time to exit 


N 
keep_going © SQIO(EFN=2,CHAN=.tt_c 
FONC=10$_READVBLK OR i0 
ASTADR=wake_ast,P1=tt_buffer,P2=1); 


ee te 
m 


keep_going = false; 


IF NOT .keep_going THEN 
SDASSGN(TRAN=*tt_chan); 


han 
$A_NOECHO OR IOS$M_CVTLOW, 10SB=iosb, 


If the above Q10 has already completed with an error, then terminate 
the image. This fixed a bug which caused an AST level loop when a 
remote terminal Link disappeared. 


4 {.fosb [C0] NEQ 0) AND (.iosb (0) NEQ SS$_NORMAL) 


| 4 
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3; Routine Size: 


130 bytes, 


52 

.2C A 
5 

56 sBF 

1¢ = =A2 

20 

18 = A2 

45 8F 

1A 

27 

7E 

7 

000000006 $3 
5 

01 

000000006 00 


Routine Base: 


00000 


0000" CF 
04 AC 
04 

x i 
Q 
06 

01 
08 
50 
09 

1c Ae 
gt 

D 

50 

05 

30 
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0171 ~=8F 
28 2 
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0 

28. OA 
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INFO_CODE 


H 1 
Sep-1984 VAX-11 Bliss-32 V4.0-742 
12-8 -Sep aa 4 99: 83: $4 DISKSVMSMASTER: CCLIUTL. SRCJINFO.B32;1 
-BLKB 3 
008 80194 INFO_IPL: ’ 
.PSECT INFO_OWN,NOEXE,2 
00DC4 10SB: .@LKB 8 
.EXTRN SYS$QI0, SYSSDASSGN 
.PSECT INFO_CODE,NOWRT,2 
0004 00000 wAKE_AST: 
«WORD Save R2 
9E 0000 MOVAB KEEP_GOING, R2 
D5 0000 TSTL AST_TYPE 
18 OOOOA BGEG )~=Ss«éa1$ 
90 9000¢ MOVB #26, TT_BUFFER 
9A 00010 18: MOVZBL TT_BUFFER, RO 
91 00014 CMPBsROs #86 
i 0018 BNEQ 2$ 
DO OOO1A MOVL #1, NEW_DISPLAY_MODE 
11 0001 BRB 3$ 
91 00020 2$: CMPBséRO, #32 
be 090 ah Neu. DISPLAY MODE 
DO 00028 3$: MOVL » MODE_ CHANGE 
11 0002¢ BRB 
91 000 E 4$: cM RO, #69 
13 000 BEQL «=séSS$ 
91 000 CMPB RO. #26 
12 00037 BNEQ 6$ 
D4 00039 5S: CLRL - KEEP_GOING 
59 0038 6$: BLBC §KEEP™GOING, 7$ 
C 990 E CLRO = = (SPJ 
7C 0004 CLRQ = = (SP) 
po 0042 PUSHL #1 
F 00044 PUSHAB TT BUFFER 
D4 00047 CLRL 
9F 00049 PUSHAB WAKE _AST 
F 0004 SHAB 1e3 
c 005 MOVZWL ' 69, -(SP) 
C 000 MOVZWL TT_CHAN, -(SP) 
dD 099 PUSHL } 
FB CALLS #12, SYS$QIO 
06 MOVL RO, KEEP_GOING 
¢ 0065 7$: MOVZWL 105B, RO” 
006A BEQL 
8} 06C CMPW = séRO, #1 
O6F BEQL 
D4 1 CLRL  KEEP_GOING 
Fé 073 8$: BLBS KEEP GOING 
C 00076 MOVZWL Seed 
FB OOO7A CALLS “ERAN NUS) 
04 00081 98: RET 
+ 0198 


ne 


) 


(7) 


=32 V4.0-742 
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1 


i 
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1 GLOBAL ROUTINE proc _cont_display : NOVALUE = 
BEGIN 


: 


| 


AAA AO OO 
SEARS 


: 

4 1 
o55 5 | 

3 i 0 : This is the main entry point for the program. 

; ; 4 This routine reads the process name from SYSSINPUT 

; 640 : and displays process parameters on the screen. The 

: 641 ! display is updated continuously. 

3 ote 635 ! 

4 64 leeoe 

3 644 

> 645 8 2 LITERAL 
$ 668 $73 buflen = 512; ! Size of terminal output buffer 

3 ots 0641 LOCAL 

: 64 ak prev_vmap_buf: BLOCKVECTORCmaxvirt, BYTE, BYTE), 
; 650 status ' Status return from calls 

; 651 0644 max “cele ! Maximum Legal column for cursor 

5 $36 B9%2 vpn_per_col, ! # of — s per column (64 or 128) 

; 65 #6 vpn_ist_col, ! ist column used for vpn's 

3 654 064 Ss, ! Position of last ¢ iff screen 

; 655 0648 sats } uait tine in miflise ite read 

; 656 0649 ait time in mi 

3; 657 0650 quadt time: VECTORC2) INITIAL (-100 -i)" ! Quad time ter “votes 
; 658 0651 VECTOR 5 $c wmaxrss BYTE} }, ! Current image name 
3; 659 Be2¢ inage d “desc: VECTOR ' Descriptor for above buffer 

; 660 +3 Fh iytte ares Buffer for terminal output 

: 661 54 bufdesc: VECTO : se cclly peed for above buffer 

3 $66 0655 GRP_DESC : VECTO acoue Oe name descr 

3; 663 0656 RP~NAME : VECTOR Koss. Wan ' Group name storage 

3 664 +t 4 MEM_DESC : 2 nenber es descr 

3; 665 58 MEM" NAME : VECTOR CKGBS$S NAME, BYTE], ! Member name storage 

s 666 0659 CONVERTED UIC : REF VECTOR; “! Addr of alpha VIC descr 

; 66 0660 

; 668 0661 D 

; 669 P Bees state table = nameta ie 

3 670 P COLPG MWAIT, CEF PFW Peto, HIB,HIBO,SUSP,SUSPO, 

: 671 FPG, COM, COMO, CUR); 

io aT 

3 or : Post-initialization Link to SCR 
: 67 

: re] LIBSF IND_IMAGE_SYMBOL (Zascid'SCRSHR 
; 678 Zascid'L1B BsscReen_ INFO", SLIBSSCREEN_INFO); | 
3; 679 L1BSF IND_IMAGE _SYMBOL (Rage id: SCRSHR 
3 680 Za asc id SCR SERASE_LINE', SSCRSERASE_LINE); 
3 1 LIBSF IND_IMAGE_SYMBOL (Zasc oSteane 
i 688 Fasc id'st RSERASE_PAGE', SSCRSERASE_PAGE); | 
3: 68 LIBSF IND_IMAGE_SYMBOL (Zascid'SCRSHR*, 
; Za ascid seh SPUT BUFFER’, SSCRSPUT_BUFFER); 
3 5 LIBSF IND_IMAGE_SYMBOL (Zasc qSCRSNe 
3 Za asc} id SCRSPUT SCREEN’, SSCRSPUT_SCREEN) ; 

; pet LIBSF IND_IMAGE_SYMBOL (Zascid'SCRSHR‘ 

; Zasc id’ SCRSSET_BUFFER’, SSCRSSET_BUFFER); 
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SNOUT RUTESS CO 


H }: LIDS ID _IFASE SYMBOL (Rage 16 St8sre 

: : pO ascid SCRSSET_CURSOR', SSCRSSET_CURSOR); 

: 9 68 

; e38 DO8¢ prev.vmap = prev_vmap_buf; ! Store the address into the REF 

3 695 D688 ¢ ! 

3; § D689 : Make certain portions of OWN storage non-paged to avoid 

3 $99 pony : popeteu ts by kernel mode code which runs et 3a nigh IPL. 

; 698 069 : ake most of the rest of the own storage non-paged for 

; 699 38 } performance. 

; 701 069 ; 

oa a § 0695 bufdesc 9 = lock start; ! Starting address of program 

3; pone bufdesc (1) = lock_end; ! Ending address of program 

3 re 698 per form(S$LKWSET (INADR=bufdesc)); ! Lock down pages to avoid paging 

: 7 D6 ' 

3 700 hist : Make sure we can handle the screen and get its width & height 

; 709 44 

; 710 070 BEGIN 

3 7 0704 LOCAL 

3 ar; 84 type; 

s 71 706 perform(libsscreen pndo( gee floes. type max_col,max_row)); 

3; 714 0707 4 F (.max_col LSS 72) OR (.max_row LSS 10) 

3 97 0708 3 THEN 

3 re 3444 6 BEGIN 

ee 710 4 SIGNAL (rms$_dev); ! Call it an inappropriate device... 
; 718 0711 4 RETURN; 

3: 719 orig END; 

; 720 071 IF .max_row LSS 2 then spacing = 1; ! Single space if small screen 
3: Tel 0714 IF .max_col LSS 132 THEN ! Less than 132 columns gets 
. £ § 0715 vpn_per_col = 64 ! 64 vpn's per column 

; £ p7ig SE ! elsewise 

; 724 71 vpn_per_col = 128; ! 128 vpn's per column 

3 tg? ges vpn_ist_col = MINU(10,.max_col-.vpn_per_col)+1; ! Find 1st vpn column 

3 £ $ 719 max_row = MINU((maxvirt/.vpn_per_col)+1,.max_row); ! Limit max to vmap max 
3; © 0720 END; 

3 i 8 o7 1 

Ss : 7 5 ! Get a channel to the terminal, set it to FULLDUPLEX, and post a read on it 
3 y 1 g 3 ! 

3 £ § 7 $ BEGIN 

me) 7 LOCAL 

3; 735 7 3 dib_buf: BLOCK(dib$c ngth, BYTE), 

3; £ 7 dib Tt! desc: VECT : 

? 730 3 performTSASSIGN(CHAN=tt_chan,DEVNAM=ZASCID ‘TT')); 

Be 731 dib_buf_desc = dibSc_ Length; 

; 739 7 § dib_buf gens = dib_buf; 

: 740 7 perforant 6 ae Hoe neh | at PRIBUF=dib_buf_desc)); 

3: 741 7 dib_buf(dib$l_devdepend)-= .dib_buf(dib$l_devdepend) AND NOT tt$m_hal fdup: 

3; 74 P 0735 perTorm(SQIOWTCHAN=.tt_chan, 

3; 7 7 FUNC=10$_SETMODE ,Pl=dib_bufCdib$b_devclass])); 

3 746 P 07 per form($Q]0W(CHAN=.tt_chan, 

3; 745 738 FUNC=JO$_SETMODE OR IOSM_CTRLCAST,P1=wake_ast,P2=-1)); 
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P 073 ie a ap tt_c 
ree P0740 3 °° § READVGLK OR 108A NOECHO OR 10SH_cvTLoW, 
4 74 Hiatt peed we - AS _buf fer ,P2=1) 
f ee END; 
; eee proc_a_desc (Cdsc$w_length) = 0; ! Display name first time 
7 74 ! 
, 7 ie Declare exit handler 
f Hs per form(SDCLEXH(DESBLK = exit_block)); ! Declare exit handler 
75 7 ! 
761 i Setup screen buffer to optimize screen output 
76 736 putdesct 9] = bution; ! Buffer Longeh | 
764 75 bufdescliJj = buff i Address of buffer 
765 758 scr$set “buffer (bufdesc); i Enable output buffering 
re Feo 5 
768 761 i Display the page heading informatio 
769 76g 3 chi, cp h e aoe . 
Hi e 
a $ or: de_ ch ! If displ de just ch d 
-mode_change ! ay mode just changed, 
774 ef THEN - ° ~— . 


BEGIN 
mode renange = false; 


SSNS SS SSS 


ELSE ! Else, if vmap display 
a Line FROM 1 TO .max_row-1 ! Label each Line with starting VA 


DOO 


Wn 


PVPS SS SUPVDUSVIUSVSUSVSITSUSVOSVUSIOST STII B® EES ES NNN PUPIPIPIPUPIPUPIPUPIPUPIPIPUIPIPUNRINIPUWNINI 
4 
oO 


NS | 
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~ 
~ 
w 
COOoooooooooooooooo 


77 69 ! then mark it no longer just changed 
77 70 sere ay_mode = inew _display ~node; ! and set to new display mode 
778 71 rer ocese _page(1 Erase the entire screen 
779 i display_ mode Eat 0 ! If normal display 
780 7 
781 7% BEGIN 
ree 75 at(.spacing*1,30); write(’Process '); 
7 ve at(.spacing*3,5); write('State'); 
784 or? att.spac inges.3): write('Cur/base petjoriey” ); 
785 778 at(.spacing*5,5); write('Current P 
786 779 at (-spacings6.3); write('Current PSL'S; 
78 780 at(. spacing +3); write(*Current user ép'); 
781 at(.spacing*8,5); write(’ ml 
789 7 : at(:spacing® +93) write ('!XL' .proc_l_pid); 
7 at (spacings ode. write *UIC’s; 
791 7 at(.spacing®3.45); write(' Wertust set’); 
79 785 at(.spacing 903-4): write('Virtua oh 39es 4); 
79 7 at(.spacing*5.4 ); write ("CPU t ); 
794 7 at(. “spac ingeg.63); eriset*Bivest” 1/0 ) 
795 788 at(.spacing*/7,45); write('Buffered 1/0"); 
m6 789 at(.spac ingss 62}: write( ‘Page faults}: 
79 . at(.spacing*9,45); write("Event flags’) 
7 
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wm 
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ww 


ifcBen-1964 00:05:41 yan atsesc32 


BEGIN 
LOCAL 
yen addr; 
vpn_ist_a aaa? = (; Line-1)*.vpn_per_col*512; 
at(l line 
IF vpn clef co gol GEG 8 THEN 
‘ wrife( » «vpn ist_col-3, .vpn_ist_addr) 


etiene emt -vpn_ist_col-3, IF .vpn_per_col yt, 64 THEN 
ugy"- st_addr/4096 


-vpn_ist_addr/65536); 


“END; 
at(.max_row,3); write('PC:'); 
at (.max_ row.17); write('State: 


); 


! Initial PC display soeatnes 
inage. des C0) = 0; i initially mutt image n 

i Interations/i mage Weds "Terce Ist one 
EnSFILL(O, teen _row-1)*.vpn_per $F goss} ! Initialize vmap 


-1; 

Povevflo = -1; 

locevfll = -1; 

vause = -1; 
lee 


ps 3 
prioc_a_desc Cdsc$w_length] = 0; 


Keep refreshing the information that changes 


status = .prev_pc EQL . ' Set flag true if quiesent 
“ S <prev_ce seustas EQL .cputime; ° ’ 


ee ee Length], .proc_a_desc(dsc$a_pointer], 
v 
prev’ desttds qsceu =potster) = .proc_ ~ -desc(dsc$w length); 

rev gv desc dsc$a_po = prev pre nae: 

3 wha ete J. image cfg3° 1] .prev_image); 

at mgdesc nage. descl 
prev_imgdesc . fren, image; 
prev_st te = i, 
prev_pri = .pri; 


cc? 
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f 14 
Se VAX-11 
1e-30-198¢ 93:08:35 DtSKSvMEHA 
prev_prib = .prib; 
prev_grp = .grp; 
prev_mem = .mem; 
prev_pc = .pe; 
prev_psl = .psl; 
prev_sp = .sp; 
prev_ppgcnt = “ppgent; 
prev_gpgcnt = .gpgcnt 
reed ime = veicfos 


prev_ ogetits = : -paget ita: 
prev_locev ocevfl 
prev_locevfli = -tocevflt; 
prey vause = .va 
SMOVE (( max *pourls*. vpn. per_col, vmap, .prev_vmap); 


i Set the time delay according to type of terminal and activity of 
process, then update all the stats. 
msec = Compute msecs to wait 
(IF .dev ~flags AND 1 -if screen oriented device 
THEN (IF™. us 


TH HEN #780 
Bie 100) 
LSE 200 
quad_time (0) = (.msec * -10000); Convert to 100 usec units 
por toreteee en ieres! daytim=quad_time)); : Event flag 1 
perform (SUAITFR( efn=15); ait to complete 
per form(SCMKRNL (rout in= kernet_get_info)); 


count = .count+¢1; 
regent GEQ 5 


--and if serocese 9 quiescent 
--then .75 seco 
"else .10 poet 


! Increment count/image read 
i Every 5 interations, 


BEGIN 
LOCAL 
iosb: ep hg 4,WORDI, 1/0 status block 
item list: BLOCK C16.BYTE): GETJPI item List 
count = 0; ! Reset counter 
image Gene 1 : image; 
item_Tist (0, 0] = 128 ! Buffer Length 
item_list Le, 20) = j oti _imagnam ' Request image filespec 
item~list = .image_desc {): i Buffer address 
item_list 8, ; _inage_d desc CO]; ! Return tength address 
item_ list 12, , 2, : Terminate list 


IF SET IEICE TAL ST = item_list, ! Read image filespec 
PID ADR = proc_l_pid, 


EF 
10S8 = fosb) 


“4 
=x 
Mm 
2 


BEGIN 
perform(SWAITFR(EFN = 0)); ! Wait for completion 


o 


“if not screen then 2 seconds. 
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< 


Vv? .” -iosb (0) ! If deferred error detected 
3 image_desc (0) = 0; ! then force string to null 

1 LS ! If error detected by GETJPI 
¢ 2. C0) = 0; ! then force string to null 
i ° 

; -d tay mode EQL 0 ! If normal display, 


F .dis 
HEN BEG! 
t(. ebpec ine g*1 oa tlerhe Uae Pdi ' Write staged time 

F CH dsc$a shointsrd.,, 


3 
ifen BEGIN att, ceeecat 


DOODODOOOOODDOOOOOOOOO 


PIPOPIPONINONINYD 4 OO Os Oe ee 
SOOONOUEUAR "OVO ONOULS WN 


WOO ODODODOODOODODODODOO0O00000 
SSSSSSSSSSESOOOE OO ES 


oO 4 

3 

2 4 

: & 

e 4 

o 4 

3 H 3 Bh ca + proc. ‘a yp Ree inated: -proc_a_desc(dsc$a_pointer]); 
: 93 4 IF chSNEaC. prev_imgdesc(0J,.prev inadescL1], 

; 93 4 ; image descl0),.image_desc(1J,' 

; 3 5 THEN BEGIN 

; 936 5 at(.spacing*l1, 53 write('!AS', image desc); scr$erase_line(); 
; 937 09 5 IF »spacing EQL 1° THEN prev_ locevfli~= .locevfl1+1; 
; 938 0931 4 END; 

; 939 0932 5 IF prev. state NEQ .state THEN BEGIN 

; 940 0935 5 at(.Spacing* »25)3 write('!6AC',translate_value(.state,state_table)); 
3; 941 0934 4 END; 

3 942 0935 5 IF .prev_pri NEQ .pri THEN BEGIN 

> 943 0936 5 at(. Spacingt4, 4); write('!2UB/',.pri); 

; 4 0937 4 END; 

: 945 0938 5 IF -prev_p prib NEQ .prib THEN BEGIN 

: 946 0939 5 at(.Spacing®4,27); write('!UB',.prib); 

3 947 0940 4 END; 

; 948 0941 5 IF .prev_pc NEQ .pc THEN BEGIN 

; 949 0942 5 at(. SpacingsS 25); write("!XL",.pc); 

; 950 09435 4 END; 

3; 951 944 5 IF .prev_psl NEQ .psl THEN BEGIN 

; 336 945 5 at(. .Spacing*6, 5); write("!XL",.psl); 

; 0946 4 

3: 954 0947 5 IF -prev_ sp NEQ . 53B.} THEN BEGI 

: 955 0948 5 ati. .Spacing®/ 5); rite {XL",. sp); 

; 956 0949 4 

3 957 0950 4 IF PREV. GRP NEQ .GRP OR .PREV_MEM NEQ .MEM 

; 958 0951 4 THEN 

: 959 0952 5 BEGIN 

; 960 0935 : LOCAL UIC; 

> 961 0954 IC = .GRP<0,16>*16 OR .MEM<0, 16>; 

; 96¢ 0955 5 CONVERTED UIC = FAO('!Zi", .UIC); 

; 96 0956 «5 IF .CONVERTED_UICCOJ LSS $5 

3; 964 0957 5 HEN 

: 965 0958 6 BEGIN 

: 367 0960? THEN CAT’ ( SPACING® 23:8 : URITEC* 121", UIC) 

; 968 0961 6 ELSE (AT (. SPACING®9, RITEC'!#< !>!21°,35 = .CONVERTED_UVICCO), .UIC)); 
: 4 41 g ND 

; 970 96 ELSE 

3; 971 964 6 BEGIN 

: 3n8 965 6 GRP DESC EO) 5 sees NAME ; 

; (97 966 6 GRP~DESCL1) = GRP_NAME; 
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; 974 967 6 mem DESCEO! = KGBSS_NAME; 

; 975 43 6 MEM_DESC(1J = MEM a: 

; ane Pp 3 6 SIDTOASC (ID = .GRP*16 OR %X*OOOOFFFF', 

; 97 P 0970 6 NAMLEN = GRP_DESC 

; 978 0971 6 NAMBUF = GRP-DESCS; 

3; 979 Pp a 6 SIDTOASC (1D = UIC, 

: 980 P 0973 6 NAMLEN = MEM_DESC 

: 981 0974 6 NAMBUF |= MER DESC); 
; 98 0975 6 AT (.SPACING*9,10); er AS' ,GRP DESC); 
; 98 0976 6 AT (.SPACING*9,11+.GRP_DESCLOJ); WRITE (',') 

3 097 3 AT (.SPACING*9+1,11); QRITE (*1ASJ" ,MEM_DESCS; 

; 985 bare END; 
: Re $000 § oar won t+ t NEQ t+ t THEN BEGIN | 
; -prev_ppgcn rev_gpgcn ePpgcnt+.gpgen 
; 9 0981 5 Bt (Spar ingeS 67) i write’ f6uL’ ppgen O epecnt) : 
: 989 0982 4 END; 
; 990 0983 5 IF .prev_vause NEQ .vause THEN BEGIN 
: 991 0984 5 at(.spacing*4,66); write('!7UL',.vause/512); | 
3 a8 0985 4 END; 
; 99 0986 5 IF .prev_cputime NEQ .cputime THEN BEGIN 
3; 994 P 0987 5 at(.spacing*5,62); write("!272L:!2Z2L:!2Z2L.!27L', 
3; 995 P 0988 5 (.cputime/(100*60*60)) MOD 24, 
; 996 P 0989 5 (.cputime/(100*60)) MOD 60, 
3; 997 P 0990 5 (.cputime/100) MOD 60, 
: 998 0991 5 -cputime MOD 100); 

3; .999 0992 4 END; 
3; 1000 0993 5 IF .prev_dirio NEQ ,dirio THEN BEGIN | 
; 1001 0994 5 at(.Spacing*6,65); write('!8UL',.dirio); 
: 1002 0995 4 3 

3; 1003 0996 5 IF .prev_bufio NEQ ,bufio THEN BEGIN | 
> 1004 0997 5 at(.Spacingt7,65); write('!8UL’,.bufio); 

3; 1005 0998 4 ; 
: 1006 0999 5 IF .prev_pageflts ry -pageflts THEN BEGIN 

; 44 4 ? at(.spacing*8,65); write('!8UL',.pageflts); 
; 1009 1002 5 IF .prev_locevflO NEQ .locevflO THEN BEGIN 

3; 1010 1003 5 at(.spacing*9,65); write('!XL*,.locevfl0); 

3 1011 1004 4 END; 

3 Hae 1005 5 IF .prev_locevfl1 NEQ .locevfl1 THEN BEGIN 

: 101 1006 5 at(.spacing*9+1,65-1); write(" !xXL',.locevfl1); 

3 1014 1007 4 END; 

3 1015 1008 4 END F 

3: 1016 1009 3 ELSE ! Else, if display mode is vmap 

3; 1017 1919 4 BEGIN 

: 1018 1011 4 LOCAL vpn,prev_vpn,last_at; 

3 1019 ois 4& last_at = =2; 

3 1020 1013 4 IF CASNEQ((.max_row-1)*.vpn_per_col, vmap, 

; 96) 1919 : ae (.max_row-1)*.vpn_per_col, .prev_vmap, 0) 

: 1098 1oig ¢ a i FROM 0 TO ((.max_row-1)*.vpn_per_col)-1 ! For each page in virtual space, 

: 1025 1018 4 IF_.vmap C.i,all] NEQ .prev_vmap C.i,all] ! If virtual page residency has changed, 

3 1966 9 4 THEN 

: 195 1 $0 5 BEGIN , 

; 1028 1021 § IF .i NEQ .last_at+1 ! If not already at position 

3 106) 1066 : OR .i MOD .Vpn_per_col EQL 0 ! or skipping to next Line 
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14- ~hee- 19 DISKSVMSMASTER: CCLIUTL. SRCJINFO.B32; 
; 1031 1024 at_v we i); ' Set cursor position to VPN 
$ is ¢ 19 5 ; test -at = i}: : Save current cyrser position 
: show_vpn splay virtual page 
3; 10 10 3 4 END;~ : 
F 19 5 10 3 4 
3 1 1 4 ! 
; 10 1030 4 ! Put current PC, State, and Image name on Last Line 
; 1038 1031 4 ! 
3 1039 10 ¢ 4 
3; 1040 10 2 IF “orer pc NEQ pC ae BEGIN 
: 196) 1% a (.max _row, write('!XL',.pc); 
: 1928 i $ 2 IF prev. state neo State THEN BEGIN 
3 ee Ie 2 att .fen, row,24); write('!6AC',translate_value(.state,state_table)); 
3; 1046 1039 4 IF CHSNEQ nope. OH CRE leggesct ti. 
3 1047 1040 4 O],.image_desc(1],' *) 
3 1048 1041 : THEN. are 
3 1049 1066 at (.max cn 32); write('!AS',image_desc); scr$erase_line(); 
3; 1050 1043 4 ND; 
3; 1051 1044 3 END; 
3 1026 1045 
3; 105 ng at(.max_row 14 
3: 1054 104 scr$put_buffe 
; ee Ho scr$set_ ~butfer(butdesc) : ! Output contents of buffer 
3 1057 1050 END WHILE .keep_going; 
3; 1058 1051 
3; 1059 1936 RETURN; 
3; 1060 1053 1 END; 
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05 00007 P.AAC: .BYTE 5 : 

47 50 4C 4F 43 00008 eASCII = \COLPG\ : 
05 Q000D P.AAD: .BYTE ; 

54 49 41 57 4D Boneg eASCII = \MWAIT\ : 
03 00015 P.AAE: .BYTE : 

46 45 43 00014 »ASCII \CEFN : 

57 46 0018 eASCII = \PFW\ ; 

0 80018 P.AAG: .BYTE : 

46 45 4€ 1¢ eASCII = \LEF\ : 

04 Bes P.AAH: .BYTE : 

4F 46 45 4 0020 eASCII = \LEFO\ : 

0 0024 P.AAI: .BYTE : 

42 49 4 0025 eASCII = \HIB\ : 

04 88 8 P.AAJ: .BYTE : 

4F 42 49 48 029 eASCII = \HIBO\ ; 

04 00020 P.AAK: ‘BYTE ; 

50 53 55 353 000 -ASCII = \SUSP\ : 

8 P.AAL: .BYTE : 

4F 50 53 55 0 eASCII = \SUSPO\ ; 
0038 P.AAM: .BYTE : 

47 50 46 00039 eASCII = \FPG\ : 
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00 


00 


53 


00 


52 


00 


41 


00 


41 


52 


43 


0 
4D 4F c3 
4F 4D 4F : 
52.55 4 
0000001 
SHE 
0000000 
SSS 
200998 
444444 
4 000 
94944 4 
00000006 
464 
0000000 
4944S 
0000000 
00000000' 
00000009 
00000000" 
4 444444 
0000000° 
00000008 
00060000' 
0000000C 
00000000' 
00000000 
00000000" 
44 4443 
0000000' 
FFFF  FFFEFFEF 
53 43 33 
A344 6 
0 eet: 
24 4 $5 
sia 
53 & 3 
fi 
0000 
24 52 4 
ong 
0000 
53 52 4 
918 0 
00000 
24 52 4 
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P.AAO: 
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\COM\ 
\COMO\ 
\CUR\ 


“L.ONG 

ADDRESS P.AAC 
“ADDRESS P.AAD 
LON 

ADDRESS P.AAE 
ADDRESS P.AAF 
ADDRESS P.AAG 
ADDRESS P.AAH 
- ADDRESS P.AAI 
- ADDRESS P.AAJ 
ADDRESS P.AAK 
-ADDRESS P.AAL 
“ADDRESS P.AAM 
“ADDRESS P.AAN 
LONG 

“ADDRESS P.AAO 
LONG 

“ADDRESS P.AAP 
LONG 
“ASCII 


Bliss- 
Ss 


» LONG 


\SERSHR\<0><0> 
17694726 


3 
R 


eADDRESS P.AAR 
eASCII = \LIBSSCREEN_INFO\<0> 


- LONG 


“ASCII 
LONG 


17694735 
\SCRSHR\<O><0> 
17694726 
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eADDRESS P.AAV 
eASCII = \SCRSERASE_LINE\<0><0> 


«LONG 


17694734 


ADDRESS P.AAX 

ASCII \SERStR\<0><0> 
eLONG 17694726 
ADDRESS P.AAZ 
\SCRSERASE_PAGE\<0><0> 


D 
ASCII 
«LONG 


17694734 


eADDRESS P.ABB 
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1e-808- 138s 99:08:34 
3 13C P.ABD: .ASCII \SCRSHR\<0><0> . 
01 00 144 P.ABC: .LONG 17694726 ; 
0 * 00148 sADDRESS P.ABD : 
14 P.ABF: .ASCII \SCRSPUT_BUFFER\<0><0> : 
90 12 P.ABE: .LONG 17696734 : 
* 001 . P.ABF : 
164 P.ABH: .ASCII \SCRSHR\ <0><0> : 
99 : 16¢ P.ABG: -LONG 1 694726 : 
; 7% P.ABJ: ASCII \SCRSPUT_SCREEN\<0><0> : 
OO0E, 00184 P.ABI: LONG 17694734 ; 
1 -ADDRESS P.ABJ : 
O18C P.ABL: .ASCII \SCRSHR\<0><0> : 
0006 00194 P.ABK: .LONG 17694726 : 
009 * 00198 -ADDRESS P.ABL : 
33 d19¢ P.ABN: .ASCII \SCRSSET_BUFFER\<0><0> : 
OOOE OO1AC P.ABM: .LONG 17694734 : 
009 * 00180 .ADDRE ABN : 
0184 P.ABP: .ASCII \SCRSHR\<0><0> : 
0006 0O01BC P.ABO: .LONG 17694726 : 
0000' 001C0 -ADDRESS P.ABP : 
33 901 C4 P.ABR: .ASCII \SCRSSET_CURSOR\<0><0> : 
6000 9014 P.ABQ: .LONG 17694734 : 
00000" 00108 .ADDRE ? : 
4 54 9019¢ P.ABT: .ASCII \TT\<0><0> : 
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R1 


PREV_PC, PC 
268 ~ 


RO 
rSPREV. PRCNAM 


C 
PREV REV. DES PREV_DESC+4 
IMAGE_DESC, “aIMACE. DESC+4, PREV_IMAGE 
IMAGE DESC,” PREV AGDESC 
PREV TMAGE. PR ve IMGDESC +4 


PPGCNT V PREV PPGCNT 
IME, PREV_CPUTIME 
PREV_BOFIO 
LOC ura, 6 PREV LOCEVFLO 
vAU SE, PREV_VAOSE 


wi, MAX 
ven. PER“COL, RO 
VAP Ser _VMAP 


Bey AGS, 29$ 
DEV FLA Shs 
# SEC 


r) i 
#10060, ASEC. QUAD_TIME 


QUAD. TIME 
#4, SYSSSETIMR 
STATUS, 31$ 


syeeuarree 
RO; TUS 
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SHOWSPROCESS_ CO 1§- Sep-1984 00:05: VAX-11 Bliss-32 V4.0-742 40 
¥04-000 ea een Fee PS 8R a Peete tee Me or eacaiweo.eses1° chs 
68 57 E9 00617 BLBC STATUS, 31$ : 
F839 «OOF Ose Set AB KERNEL. GET INFO eer 
000000006 09 FB 006 i CALLS Hp. st8 VSSCRR RNL ; 
DO 006 MOVL ys : 
55 E9 0062A BLBC eTATOS. 1$ : 
05 2B PF Obese thet OEOUNT. #5 : O88 
61 19 00632 BLSS $0 : 
B 04 006 CLRL_ COUNT + 0894 
0268 CE O26 ce 9E 00636 MOVAB IMAGE, IMAGE DESC +4 + 0895 
74 AE 0207 6 F DO 006 : MOVL #340138312, ITEM_LIS : 089 
78 «AE 0268 CE DO 0064 MOVL IMAGE_DESC+4, ITEM tistes : 089 
70 «OAL 0264 CE 9E 00648 MOVAB IMAGE-DESC, [TEM_LIST+8 + 0899 
0080 CE D4 00651 CLRL =—sCITEM CIST+{12 + 0900 
7E 7C 00655 CLRG = SPI + 0905 
008C CE 9F 00657 PUSHAB I0SB : 
0080 CE 9F 00658 PUSHAB ITEM_LIST : 
7E D4 O065F CLRL  -(SPY : 
000000006 00 9F 00661 PUSHAB PROC _L_PID F 
7E D4 00667 CLRL py ~ : 
000000006 00 07 FB 00669 CALLS #7. SYSSGETUPI ; 
iE 50 £9 00670 BLBC =«_- RO. 348 : 
7E D4 0067 CLRL = = ¢ §P) : 0908 
000000006 00 01 FB 00675 CALLS #1, SYSSUAITFR : 
57 20 DO 0067¢ MOVL RO. STATU : 
OA 7 €8 0067F STATUS, S35 : 
57 DD 00682 318: PUSHL STATUS : 
000000006 00 01 FB 00684 32$: CALLS #1, LIBSSIGNAL : 
04 00688 RET ; 
04 0084 CE €8 0068C 33$:  BLBS 10SB, 35$ + 0910 
02E4 CE 04 00691 34$:  CLRL  IMAGE_DESC > 0915 
0000 CF DS 00695 35$: TSTL  DISPLAY_MODE : 0918 
03 13 00699 BEQL 363 : 
0490 31 00698 BRW 59$ : 
7E 41 8F 9A 0069E 368 MOVZBL #65, -(SP) : 0920 
0000" CF DD 006A2 PUSHL SPACING : 
0000" oF 02 FB 006A6 CALLS #2, @SSCRSSET_CURSOR : 
7E D4 0068 €LRL (§P) : 
0000" CF 9F QO6AD PUSHAB P. ADI : 
F743 CF 02 FB 006B1 CALLS » FAO_BUFFER : 
50 DD 0686 PUSHL F 
— 50 000000006 60 8 bese mou’ oROCeh seetean hore ? 09 
000000006 00 20 0000° 8 tit cf Hy er CMPCS PREV-DESC, @PREV_DESC+4, #32, PROC_A_DESC, -: 9334 
8 13 00602 BEQ 37$ : 
$e Dd 006D4 PUSHL #38 : 0923 
0000" CF DD 00606 PUSHL ING : 
0000" oF é FB QO6DA CALLS 33S “aSScRSsey _CURSOR ; 
000000006 D O06DF PUSHL PROC > 0924 
7E 0000000¢ 0 3C 006E5 MOVZWL PROC” A DESC, * esp) : 
000' CF 9F 006E PUSHAB P AD : 
F704 CF 93 FB O6F CALLS , FAO_BUFFER : 
0 DD 006F PUSHL ro" : 
0000" oF 01 FB O06F CALL @SSCRSPUT_SCREEN : 
0264 CE 20 0000" DF 0000" CF 2D OO6FC 37%: CMPC Prev’ IMGDESC, “@PREV_IMGDESC+4, #32, > 0926 


—————— —— 
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SHOWSPROCESS_CO 16-Sep-1984 VAX=11 Bliss-32 V4.0-742 41 
v04-000 14- Sep- -1984 99: ba: i DISKSVMSMASTER: CCLIUTL. SRCJINFO.832; (29 ° a) 
02€8 E 7 inset DESC, @IMAGE_DESC+4 F 
13 0070A BEQL ; 
5 Dp 70¢ U : + 0929 
7E 0000" CF : C5 0070€ MULL ‘iI, ACING, -(SP) : 
0000" OF FB ori CALLS #2 *absc RSSET_CURSOR : 
O24 CE 9F 00719 PUSHAB PA _DESC : 
00' CF 9F 00710 PUSHAB : 
F6D3 CF 98 FB 00721 CALLS , FAO_BUFFER F 
DD 007 6 PUSHL : 
0000" oF 01 FB 007 CALLS #1, @$SCRSPUT_SCREEN F 
0000" OF 0 FB 0072D CALLS #0. aSSCRSERA ASE_LINE : 
01 0000' CF D1 007 ¢ CMPL PAC : 0930 
8 12 007 BNE ; 
0000" CF 9000° CF 1 ¢1 00739 ADDL3 LOCEVFL1 PREV. LOCEVFL1 ; 
0000' CF 0000° cf D4 oral 38$: CMPL prev. STATE, STAT + 0932 
19 Dp OU74A PUSH He + 0933 
7E 0000" CF 03 ¢5 0074C MULL3 #3, SPACING, =(SP) ‘ 
0000" OF 02 FB 00756 CALLS 2. aSSCRSSET_ CURSOR : 
0000" CF 9F 0075 PUSHAB STATE_TABLE : 
0000" CF oD 00758 PUSHL : 
F6BA CF 92 FB 0075F CALLS #2, TRANSLATE_VALUE : 
50 DD 00764 PUSHL RO : 
0000" CF 9F 00766 PUSHAB P.ADO : 
F6BA CF 02 FB 0076A CALLS #2, FAO_BUFFER : 
50 DD 0076F PUSHL RO : 
0000" oF 01 FB 00771 CALLS asscRsPUT _SCREEN : 
0000" CF 0000" CF D1 00776 39$: CMPL prev. + 0935 
21 13 0077D BEQL ; 
18 DD 0077F PUSHL age + 0936 
7E 0000' CF 02 78 00781 ASHL , SPACING, =(SP) : 
0000" oF 02 FB 00787 CALLS * ASSCRSSET_ _CURSOR ; 
0000" CF DD 0078C PUSHL : 
0000" CF 9F 00790 PUSHAB P.A ; 
F660 CF 02 FB 00794 CALLS #2, OF AO _BUFFER : 
50 DD 00799 PUSHL : 
0000° oF 01 FB 0079B CALLS @SSCRSPUT_SCREEN : 
0000" CF 0000' cf D4 00740 40$: CPL prev. PRIB, PRIB : 0938 
1B bb 00749 PUSHL i 5 : 0939 
7é 0000" CF 02 O7AB ASHL , SPACING, -(SP) : 
gucd’ DF 02 FB 00781 CALLS ;_a@SSCRSSET_CURSOR : 
0000" CF DD 00786 PUSHL m3 ; 
0000' cf 9F O7BA PUSHAB P.ADS : 
F636—sCF : FB 0078 CALLS #2, FAO_BUFFER : 
50 oD 007¢ PUSHL : 
0000" oF 01 FB OO7C CALLS #1, @$SCRSPUT_SCREEN ; 
0000" CF 0000° cf bt O7CA 418: CAEL PREV PC, PC + 0941 
19 Dp 0705 PUSH 4 5 > 0942 
7E 0000' CF 03 C5 0070 MULL » SPACING, =(SP) : 
0000" oF 2 FB 108 CALLS a3: @SSCRSSET_CURSOR : 
0000" CF BD 7E PUSHL : 
0000" CF 9F OO7E4 PUSHAB PsA ADU : 
F60C CF 3 FB 007E8 CALLS , FAO_BUFFER : 
DD O7ED PUSHL : 
0000" oF 01 FB OO7EF CALLS #1, @$SCRSPUT_SCREEN : 


| 16 
SHOWSPROCESS_CO hese -1984 00:05: VAX=-11 Bliss-32 V4.0-742 Page 42 
v04-000 12-808-1 3b 90:08:43 DISKSVMSMASTER:CCLIUTL. SRCJINFO.B32:1 > (8) 
0000" CF 0000" CF D1 OO7F4 42$: CMPL PREV-_PSL, PS : 0944 
0 ee ie ams 
7E 000° CF 06 8 7FF MULLS is. SPACING, =(SP) : 
000" ODF FB 00805 CALLS #2, a$SCRSSET_CURSOR : 
9090" CF pp 0 OA PUSHL PSL : 
000° CF 9F 00 PUSHAB P.ADW : 
FSE2 CF 2 FB 0 CALLS #2, FAO_BUFFER : 
0000" oF 1 FB 00819 CALLS #1, @$SCRSPUT_SCREEN : 
0000" CF 0000" 5 o} 0 i 43$: cHPL PREV SP, SP ~ + 0947 
9 DD 00 PUSHL #25 + 0948 
7E 0000" CF 07 a3 0829 MULL 45° SPACING, =(SP) : 
0000" OF 2 FB O082F CALLS #2, @$SCRSSET_CURSOR ; 
0000" CF oD 908 PUSHL SP : 
0000" CF 9F 008 PUSHAB P.ADY F 
FSB8 =F 92 FB 0085¢ CALLS #2, FAO_BUFFER : 
0000" oF 01 FB 00845 CALLS #1, @$SCRSPUT_SCREEN F 
0000" CF 0000° CF pi 0848 44$: CPL PREV_GRP, GRP + 0950 
0000" CF 0000" CF 01 tH , CMPL § PREV_MEM, MEM ; 
03 12 00858 BNEQ 45$ : 
0113 31 0085A BRW 0$ : 
50 0000" CF %3C¢ 00850 45$: MOVZWL GRP, RO > 0954 
50 50 10 78 00862 ASHL #16. RO, RO ; 
52 0000" CF 3¢ 00866 MOVZWL ; ule F 
52 309 C8 00868 1SL2 vIC : 
52 DD OOBGE PUSHL + 0955 
0000" CF 9F 0087 PUSHAB P.AEA : 
F580 CF 02 FB 00874 CALLS #2, FAO_BUFFER : 
of 50 D a Th MOVL RO, CONVERTED_UVIC 3 
2 00 BE D1 0087¢ cMPL @CONVERTED_UIC, #35 + 0956 
50 0000" CF 09 ig 00882 MULL3 #9, SPACING, RO t 0960 
13 00 BE D1 00888 CMPL § a@CONVERTED_UIC, #19 : 0959 
12 14 0088C BGTR 46$ : 
19 DD OBB PUSHL #25 + 0960 
50 DD 008 PUSHL RO ; 
0000" oF 02 FB 089¢ CALLS #2, @$SCRSSET_CURSOR : 
D 9 9 PUSHL UIC F 
0000" CF 9F 00899 PUSHAB P.AEC : 
00¢4 31 6 9D BRW 48$ : 
9 dD AQ 46$:  PUSHL : 0961 
. 0 DD OOBA PUSHL RO : 
0000" oF vs FB a CALLS #2, @SSCRSSET_CURSOR : 
7E 23 04 BE cS A8 SUBLS @CONVERTED_UIC, #35, -(SP) : 
0000" CF SF 008B PUSHAB P,AEE : 
F540 CF 03 re B4 CALLS #3, FAO_BUFFER : 
00d B9 BRW 4 $ : 
ps CE 2 0 BC 47$ MOVL #32, GRP_DESC > 0965 
D8 CE 00B4 ce C1 MOVAB GRP/NAME> GRP_DESC+4 ; 966 
Oa CE (8 MOVL #327 MEM_DESC : 
086 (CE 008¢ ce E 008CD MOVAB MEM‘NAME, MEM_DESC+4 : 0968 
—E 7C 008D4 CLRQ = =(SP) : 0971 
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SHOWSPROCESS_CO 16-Sep-1984 00:05: VAX-11 Bliss-32 V4.0-742 Page 43 
v04-000 1 =3ehn 1 Re 90:93:35 DISKSVMSMASTER:CCLIUTL. SRCJINFO.B32:1-— (8) 
7E 06 06 CLRL 0s = (SP) ; 
Selo SP FUSE. Stes : 
500000" Farrer 40 ee BORED RSLS IGT GRP, ko 7 
000000006 00 06 FB OOBE CALLS #6, SYSSIDfOASC ; 
E 7C OO8F CLRO 20s =( §P) + 0974 
7E p4 0 F CLRL ss ; 
00B8 CE 9F 00BF9 PUSHAB MEM_DESC F 
00B8¢ ce oF OOBFD PUSHAB MEMDESC : 
DD 00901 PUSHL UIC ; 
000000006 00 6 FB 00903 CALLS #6, SYSS$IDTOASC ; 
A Dp 90A PUSHL #16 : 0975 
7E 0000" CF 9 ¢5 0090 MULL3 #9, SPACING, =(SP) : 
0000° oF 2 FB 0091 CALLS #2, a$SCRSSET_CURSOR : 
0004 CE 9F 0091 USHAB GRP_DESC ; 
0000' CF 9F 0091B PUSHAB  P.A ; 
F4D5 CF 92 FB OO9TF CALLS #2, FAO_BUFFER : 
50 DD 00924 PUSHL : 
0000" oF 01 FB 00926 CALLS #1, @$SCRSPUT_SCREEN : 
7E 00D4 += CE 0B C1 00928 ADDL3 #11, GRP_DESC> -(SP) + 0976 
7E 0000" CF 09 ¢5 00931 MULL #9, SPACING, -(SP) : 
0000" oF 02 FB 00937 CALLS #2, @$SCRSSET_CURSOR : 
0000' CF 9F 0093C¢ PUSHAB P.AEI : 
F4B4 OCF 1 FB 00940 CALLS #1, FAO_BUFFER : 
50 DD 00945 PUSHL : 
0000" oF 01 FB 00947 CALLS #1, @$SCRSPUT_SCREEN : 
0B DD 0094C BUSH : 0977 
50 0000" CF 09 ¢ 0094E MULL3 #9, SPACING, RO ; 
01 AO SF 00954 PUSHAB : 
0000° oF 02 FB 00957 CALLS #2, a$SCRSSET_CURSOR : 
OOAC CE 9F 0095¢c PUSHAB MEM DESC : 
0000' CF 9F 90960 PUSHAB P.AEK F 
F490 CF 02 FB 00964 48$: CALLS #2, FAO_BUFFER : 
DD 00969 49$: — PUSHL ; 
0000" oF 01 FB 00968 CALLS #1, @$SCRSPUT_SCREEN F 
51 0000" CF 0000" CF C1 00970 50$:  ADDL3 PREV _GPGCNT, PREV_PPGCNT, R1 > 0980 
50 0000° CF 0000" CF C1 00978 ADDL3 GPGCAT, PPGCNT, RO F 
50 51 D1 90980 CMPL = R71, RO ; 
37 13 00 BEQL 1 ; 
7E 43 8F 9A 00985 MOV ZBL as? -(SP) > 0981 
7E 0000" CF 03 C5 00989 MULL3 #3, SPACING, =(SP) ; 
0000° ODF 02 FB 0098F CALL #2. @SSCRSSET_CURSOR ; 
7E 0000" CF 9000; CF ci 0994 ADDL3. GPGCNT, PPGCNT, -(SP) : 
000" CF 9F 0099 PUSHAB P.A : 
F454 SOC 2 FB OO9A CALLS #2, FAO_BUFFER ; 
DD 009A PUSHL : 
0000° oF 01 FB OO9A CALLS #1, @$SCRSPUT_SCREEN : 
0000° CF 0000° cf bt ses 51$: CPL PREV_VAUSE, VAUSE : 0983. 
7E 42 $y 9A 0098 MOVZBL #66, -(SP) > 0984 
7E 0000" CF 2 78 00989 ASHL #2, SPACING, -(SP) F 
6 00° OF Fe 9BF CALLS #2. a$SCRSSET_CURSOR : 
7E 00" CF 0000020 F g 9C4 DIVL3 #512, VAUSE, =(SP) F 
0000" CF SF 009C PUSHAB P.AE : 
F422 CF ; FB 0090 CALLS B, FAO_BUF FER ; 
DD 009D PUSHL R ; 


SHOWSPROCESS_CO 
v04-000 =~ 
000° oF 
S000" CF 0000" 
7E 9000" cf 
a. - 9 0000" 
6E e 9000064 
51 6 ooooobee 
ot ?e 
| 51 § 00001770 
| of E be 
56 00057640 
7E 90 50 
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3 


AAG 


Be 12:08: s 


si C 


ies SPACING, <(SP) 
#2. thesnto CURSOR 
cpu T 

RO, #0, 


Ay spi” OEP), (SP) 


ai® "so -(SP) 
feb (sp), -(SP), (SP) 
u6 60 
+06 Moe + ~t3p) (SP) 
iby (Sp r6 ; 
606 #0, =(SP) 
fal (§P)+. <(SP), (SP) 
We FAO_BUF FER 
@S$SCRSPUT_SCREEN 
oe “fie pIRIO 


AS * SPAIN -(SP) 
‘gilt, _CURSOR 
P, R10 

, FAO_BUFFER 


@SSCRSPUT SCREEN 
prev _BUFIO, BOFIO 


#65, (SP) 
#7, SPAC 
fe asscnsser_ Corson 
PAE 
, FAO_BUFFER 


@SSCRSPUT_SCREEN 
orev _PAGEFLTS> PAGEFLTS 


’ 5, (SP) 

» SPACI SP) 

, aSSERSSET_ “CORSOR 
ne: 3s TS 


PAE. 
- FAO_BUFFER 
#1, @S$SCRSPUT_SCREEN 
BR V_LOCEVFLO? LOCEVFLO 


i. 5 (SP). 
SPACIN SP) 
STeCRsceT. “CORSOR 


wr 
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VAX-11 Bliss-32 v4 
DISKSVMSMASTER: CCL 
SSCRSPUT_SCREEN 
PUTIME ,~ CPUTIME 
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v04-000 = 
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F304 

8000" 
0000° 
0000° 


F2D5 
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0000" 
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0000" 


So 
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CF 
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02 
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if 
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55 
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00¢7 

53 

senethad 
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01 = A4 
52 

OE 
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50 

19 

01 

59 

6640 

59 

01 03 

anal 
OF 

ol 

E 

0000" CF 
04 

64 

5 

4 

7 

6 

0000° CF 


pp 
F 
FB 
dD 
of AF 
BO 
9A 008 
§3 B 
F 008 
FB B16 
gD B1 
F B18 
FB OOBIF 
DD 00824 
te 
B2B 58 
cf B2E 59 
C B31 
5S O0B3A 
1 B42 
if B44 
CE 00847 60$ 
11 OOB4A 
91 see 61$ 
13 et 
9E 4 7 
D1 00858 
12 0085 
7A 0086 
7B 0086 
DS OOB6A 
12 OOB6C 
7A OOB6E 62$ 
7B 0087 
9F 00878 
C7 00878 
9F 00B7F 
FB 00B $ 
3 0B87 63$: 
00B8A 
18 008 
bo B 
C 008 
OF 96 
4 B9IA 
1 B9F 64$ 
EF OOBA1 65$ 
EF OOBA6 
C8 OOBAB 
EF QOBA 
D2 0088 
CA 008 
 dosec 
oF OpBE 


p=1986 19:08:38 
PUSHL LOCEVFLO 


CALLS ff FAO_BUF FER 


@SSCRSPUT_SCREEN 
CMPL PREV_LOCEVELI; LOCEVFL1 


CALLS # 


BEQL 
aie i -(SP 
MULL # eae 


1( 
CALLS #2, a$SCRSSET_CURSOR 
LOCEVFL1 


FA 
CALLS #2, FAO_BUFFER 
@$SCRSPUT_SCREEN 


PUSHL 

PUSHAB P.A 
PUSHL é 
CALLS #1 
BRW 7$ 
MNEGL #2, LA 
SUBL3 #1, 
MULL2 VPN_ 
CMPCS) RS 
BNEQ 60g 
BRW 4$ 
MNEGL #1 

RB 
BEQL 
MOVAB 1(R4), RO 
CMPL 
BNEG  62$ 
EMUL 

TSTL 
BNEG 63$ 
EMUL Ss, 
EDIV —*VPN 
PUSHAB (VPA 1ST 
DIVL3. VPN PER 
PUSHAB 


CALLS #2, @SSCRSSET_CURSOR 
MOVE VMAPLIJ> BITS 
65$ 


VL 
V 

BGEQ 

PUSHL #1 

CLRO. = (SP) 

PUSHAB P.AF 

CALLS #4 

BRB 72§ 

EXTZV #5, 

EXTZY i. 

BISL2 R1. RO 

EXTZV #0. 

RCOML RB, 

BICL2 8. 

CMPL oR 

BNEG 66$ 

PUSHAB P.AF 


VAX-11 Bliss-32 


4 Pp 
DISKSVMSMASTER:C *§RCIINFO.832:'1 


B 4 
CMPB yasrt 3. @PREV_VMAPCI) 


#1, I, #0, =(SP) 
EDIV VPW_PER_COL. (SP)+, RO, RO 


1, #0, -(SP) 
PER COL, (SP) +, RO, RO 


C 
@SSCRSPUT_SCREEN 
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SHOWSPROCESS_CO 1b-5e =1984 00:05: VAX-11 Bliss-32 V4.0-742 Page 46 

v04=000 1 ~300n 1382 90:03:43 DISKSVMSMASTER:CCLIUTL. SRCJINFO.B32:1->" (8) 
¢ 11 Bt? BRB 71$ ; 
1 D4 00BC4 66$:  CLRL 1 : 
03 53 03 1 : BC6 CMP2V #1, #3, BITS, #3 : 
: BCB BNEQ 67$ : 
D6 OOBCD INCL RI : 
0 D4 OOBCE 67$:  CLRL RO : 
02 53 03 1 FD BD1 CMP2V #1, #3, BITS, #2 : 
; 0806 BNEQ 68$ : 
06 BD INCL. RO ; 
50 51 C8 OOBDA 68$:  BISL2 Ri, RO : 
58 53 or EF 00BD EXTZV #0, #1, BITS, RB : 
8 D2 OOBE NCOM, RB RS : 
50 CA OOBE BICL2 RB. R : 
01 0 01 OOBE CMPL RO, #1 : 
06 12 OOBEB BNEQ 69$ : 
0000" CF 9F OOBED PUSHAB P.AFG : 
Op 11 OOBF | BRB 7i$ : 
06 £9 OBF3 69$: BLBC BITS, 70$ ; 
0000" CF SF d0Br6 PUSHAB P.AFI : 
64 11 OOBFA RB 7i$ : 
0000" CF 9F OOBFC 70$:  PUSHAB ®.AFK : 
0000" oF o1 FB 00C00 71$: CALLS #1, a@SSCRSPUT_SCREEN : 

02 52 5 2 00C05 72$:  AOBLSS RS. I, 73$ : 1018 
95 11 6009 BRB 74§ : 
FF3E 31 00COB 73$: BRW 61$ : 

0000" CF 0000' CF 01 OOCOE 74$:  CMPL  PREV_PC, PC t 1033 
1F 13 00C1 BEQL 75$ : 

07 Dd 00C17 PUSHL #7 + 1034 
0000" CF DD 00C19 PUSHL  MAX_ROW : 
0000" oF 02 FB OCf1D CALLS #2, a$SCRSSET_CURSOR : 
0000" CF DD 00C22 PUSHL PC ; 
0000" CF 9F 00C26 PUSHAB P.AFM : 
FICA CF 08 FB OOC2A CALLS #2, FAO_BUFFER : 
50 DD OOCoF PUSHL : 

0000" oF 01 FB 00C31 CALLS #1, @$SCRSPUT_SCREEN : | 

0000" CF 0000" CF 01 00C36 75$:  CMPL PREV_STATE, STATE > 1036. 
2a 13 00C3D BEQL 76$ ; 

18 DD OOC3F PUSHL #24 > 1037 
0000" CF DD 00C41 PUSHL MAX_ROW : 
0000" oF 02 FB b0c45 CALLS #2, a@$SCRSSET_CURSOR ; 
0000" CF 9F OOC4A PUSHAB STATE_TABLE : 
0000" CF OD 00C4 PUSHL  $T ; 
FIC? = CF 08 FB OOCS CALLS ne TRANSLATE_VALUE : 
pp OC PUSHL R ; 
0000" CF 9F 00C59 PUSHAB P.AFO F 
F197 —sCF 92 FB Ocop CALLS #2, FAO_BUFFER : 
0 DD 0066 PUSHL ; 
0000" oF 01 FB 00664 CALLS #1, @S$SCRSPUT_SCREEN : 

O2E4 CE 20 0000" oF 9909" CF 2D 0¢69 76$:  CMPCS PREV_IMGDESC, @PREV_IMGDESC+4, #32, - > 1039 
02E E C74 JMAGE DESC. SIMAGE_BESC+4 ; 
4 13 00¢77 BEQL 7 : 

0 od 00¢79 PUSHL #3 > 1042 
0000' cr DD 00C7B PUSHL  MAX_ROW ; 
0000" oF 2 FB OOC7F CALLS #2, aSSCRSSET_CURSOR ; 
0264 CE 9F O0C PUSHAB IMAGE_DESC F 
0° CF 9F 00C PUSHAB : 
F168 ~=sCF 2 FB 00C8C CALLS #2, FAO_BUFFER : 


3; Routine Size: 


3263 bytes, 


0000" F 


000° 
000° 


DF 
DF 
0000" OF 
03 


Routine Base: 


0 dD 00C 

1 FB QOC 

0 FB O0C 

DD 00C 

0000" CF dD 00C 
FB O0C 

FB O0C 

ooDC 9F 00C 
aon: E88 
ii 

4 00C 


INFO_CODE + O21A 


RESSeEr<sess __. 


é 1 


i 1 
~Sep-1 


~ 
~ 
wr 
J 


78$: 


4 00:05: VAX-11 Bliss-32 V4 
7 90:93:34 DISKSVMSMASTER:CCL 

PUSHL 

CALLS #1, @$SCRSPUT_SCREEN 

CALLS 40, @SSCRSERASE_LINE 

Ret fon 

CALLS a6 “aSSCRSSET_ CURSOR 

CALLS @SSCRSPUT_BUFFER 

PUSHAB 


CALLS @SSCRSSET_BUFFER 
BLBC He! GOING, 78$ 
RET 


Hy 


“ 


2 
$ 


7 
RCJINFO.B832;1 a (B) 


1046 
1047 
1048 
1050 
1053 


S OCESS_CO “Sep 4 VAX-11 Bliss-32 V4 
Soob0e 1§-Fe0-1984 99: 83; 44 DISKSVMSMASTER: CCL 
3 3 1054 1 END 
3 1988 1888 0 ELUDOM 
-EXTRN LIBSSIGNAL 
H PSECT SUMMARY 
: Name Bytes Attributes 
; 8 NOVEC, WRT. RD .NOEXE,NOSHR, LCL. REL, CON,NOPIC,ALIGN(2) 
; FO. 3532 NOVEC, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; INFO_CODE 3801 NOVEC, NOURT: RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; INFO_PLIT 1256 NOVEC, ‘NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
$ Library Statistics 
Pes oe 2S a as he ee eee == Syabols ocoeosooe Pages Processing 
3 File Total idaded Percent Mapped e 
; _$255$0UA28: CSYSLIBILIB.L32;1 18619 79 0 1000 00:01.8 
; COMMAND QUALIFIERS 
HY BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$: INFO/OBJ=OBJ$: INFO MSRC$: INFO/UPDATE=(ENHS: INFO) 
3; Size: 3794 code + 4823 data bytes 
3; Run Time: :59. 
3; Elapsed Time: 83 sere 
3 Lines/CPU Min: 
3 Lexemes/CPU-Min: 199 $ 
3 ponety © Used: 719 pages 
3; Compilation Complete 
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